home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
midi
/
omed_pt.lha
/
rexx
/
Killtrack.omed
< prev
next >
Wrap
Text File
|
1995-11-25
|
498b
|
27 lines
/* Kill track - Case 18-10-95 */
address OCTAMED_REXX
options results
'wi_request "Kill track?" "Full track|Only following notes|Cancel"'; answer = result
if answer ~= 0
then do
if answer = 2
then do
'op_update off'
'ed_killnotes currtrack'
'op_update on'
'wi_showstring KILLED'
exit
end
else do
'op_update off'
'ed_getcurrline var currline'
'ed_goto line 0'
'ed_killnotes currtrack'
'ed_goto line' currline
'op_update on'
'wi_showstring KILLED'
end
else
exit